gusucode.com > 智睿学校网站管理系统 V2.20 > 智睿学校网站管理系统 V2.20\code\Include\login.asp

    <%
If session("zhi_rui_s_MemName")="" then
        Response.write "<div class=""mainleft01"">"
        Response.write "<div class=""kuang10""></div>"
        Response.write "<form action="""&SitePath&"Userlogin.asp"" method=""post"" name=""loginForm"">"
        Response.write "<div class=""mainleft03"">用户登录</div><br />"
        Response.write "账&nbsp;&nbsp;号：<input name=""LoginName"" class=""input1"" type=""text"" size=""17""><br />"
        Response.write "<div class=""kuang10""></div>"
        Response.write "密&nbsp;&nbsp;码：<input name=""LoginPassword"" class=""input1"" type=""password"" size=""17"">"
        Response.write "<div class=""kuang10""></div>"
        Response.write "<div align=center><input type=""submit"" name=""Submit"" value=""登 录"" class=""but1"" />"
        Response.write "<input type=""button"" name=""button"" value=""注 册"" class=""but1"" onClick=window.location.href="""&SitePath&"UserReg.asp"" /><input type=""button"" name=""button"" value=""忘密"" class=""but1"" onClick=window.location.href="""&SitePath&"UserLost.asp"" /></div>"
        Response.write "</form><div style=""clear:both""></div></div>" 
 else
	set rs4 = server.CreateObject ("adodb.recordset")
	sql="select * from zhi_rui_s_User where id="& session("zhi_rui_s_userID") &""
	rs4.open sql,conn,1,1
	mymoney=rs4("UserMoney")
	rs4.close
	set rs4=nothing 
        Response.write "<div class=""mainleft01"">"
        Response.write "<div class=""kuang10""></div>"
        Response.write "<div class=""mainleft03"">用户信息</div><br style=""line-height:10px;""/>"
        Response.write "&nbsp;&nbsp;&nbsp;欢迎您：<b>"&session("zhi_rui_s_MemName")&"</b><br />"
        Response.write "&nbsp;&nbsp;&nbsp;积&nbsp;&nbsp;&nbsp;分：[<b>"&session("UserMoney")&"</b>] 分<br />"
        Response.write "&nbsp;&nbsp;&nbsp;当前IP：<b>"&session("LastLoginIP")&"</b><br />"
		if fabu=1 then
        Response.write "&nbsp;&nbsp;&nbsp;<a href="""&SitePath&"UserList.asp"" class=""green2"">我的作品</a>"
        Response.write "&nbsp;&nbsp;&nbsp;<a href="""&SitePath&"UserAdd.asp?Result=Add"" class=""red"">发表作品</a><br />"
		end if
        Response.write "&nbsp;&nbsp;&nbsp;<a href="""&SitePath&"UserInfo.asp"" class=""ju"">修改资料</a>"
        Response.write "&nbsp;&nbsp;&nbsp;<a href="""&SitePath&"UserLogin.asp?action=logout"" class=""hei"">退出登陆</a>"
        Response.write "<div style=""clear:both""></div></div>"
        
	rs4.close
	set rs4=nothing 
End if
%>